Voorbeeld van de eigenschap Source

Dit voorbeeld wijst de programmerings-id van een automatiseringsobject dat gemaakt is in Visual Basic, toe aan de variabele MyObjectID. Deze variabele wordt vervolgens toegewezen aan de eigenschap Source van het object Err wanneer deze een fout genereert met de methode Raise. Bij het afhandelen van fouten wordt u afgeraden in het programma gebruik te maken van de eigenschap Source (of andere eigenschappen van Err behalve Number). Het enige geldige gebruik van eigenschappen anders dan Number is voor het weergeven van informatie aan een eindgebruiker in gevallen waar een fout niet kan worden afgehandeld. In dit voorbeeld wordt uitgegaan van de veronderstelling dat App en MyClass geldige verwijzingen zijn.

Dim MyClass, MyObjectID, MyHelpFile, MyHelpContext
' Een object van het type MyClass genereert een fout en vult alle eigenschappen van het Err-object
' inclusief Source. Deze ontvangt MyObjectID, een
' combinatie van de eigenschap Title van het object App en de eigenschap Name
' van het object MyClass.
MyObjectID = App.Title & "." & MyClass.Name
Err.Raise    Number := vbObjectError + 894, Source := MyObjectID, _
                Description := "Kon uw taak niet voltooien", _
                HelpFile := MyHelpFile, HelpContext := MyHelpContext